Cream of the Crop 25/Cream of the Crop 25.iso/image/eimg202a.zip/DEMO/UNIT1.DFM/UNIT1.txt

Text File | 1997-01-25 | 5KB | 274 lines

object Form1: TForm1
  Left = 263
  Top = 119
  BorderStyle = bsSingle
  Caption = 'TEnhImage component DEMO'
  ClientHeight = 340
  ClientWidth = 488
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object original: TEnhImage
    Left = 4
    Top = 172
    Width = 220
    Height = 165
    Border = True
    Center = True
    OverSize = True
    ScaleStyle = ssScale
  end
  object Label1: TLabel
    Left = 232
    Top = 16
    Width = 48
    Height = 13
    Caption = 'Saturation'
  end
  object Label2: TLabel
    Left = 232
    Top = 52
    Width = 49
    Height = 13
    Caption = 'Brightness'
  end
  object Label3: TLabel
    Left = 232
    Top = 88
    Width = 39
    Height = 13
    Caption = 'Contrast'
  end
  object SatLab: TLabel
    Left = 448
    Top = 16
    Width = 21
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '0'
  end
  object LigLab: TLabel
    Left = 448
    Top = 52
    Width = 21
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '0'
  end
  object ConLab: TLabel
    Left = 448
    Top = 88
    Width = 21
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = '0'
  end
  object Label7: TLabel
    Left = 472
    Top = 16
    Width = 8
    Height = 13
    Caption = '%'
  end
  object Label8: TLabel
    Left = 472
    Top = 52
    Width = 8
    Height = 13
    Caption = '%'
  end
  object Label9: TLabel
    Left = 472
    Top = 88
    Width = 8
    Height = 13
    Caption = '%'
  end
  object temp: TEnhImage
    Left = 232
    Top = 252
    Width = 53
    Height = 38
    Border = True
    Center = True
    Picture.Data = {<image000.bmp>}
    ScaleStyle = ssScale
    Visible = False
  end
  object Label4: TLabel
    Left = 232
    Top = 140
    Width = 49
    Height = 13
    Caption = 'Brightness'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 232
    Top = 216
    Width = 48
    Height = 13
    Caption = 'Saturation'
  end
  object img: TEnhImage
    Left = 4
    Top = 4
    Width = 220
    Height = 165
    Border = True
    Center = True
    OverSize = True
    ScaleStyle = ssScale
  end
  object Label6: TLabel
    Left = 304
    Top = 324
    Width = 178
    Height = 13
    Caption = 'by Alfredo Milani-Comparetti - 1996-97'
  end
  object BitBtn1: TBitBtn
    Left = 400
    Top = 292
    Width = 75
    Height = 25
    TabOrder = 5
    OnClick = BitBtn1Click
    Kind = bkClose
  end
  object Panel1: TPanel
    Left = 296
    Top = 132
    Width = 185
    Height = 69
    BorderWidth = 3
    TabOrder = 0
    object PaintBox1: TPaintBox
      Left = 4
      Top = 4
      Width = 177
      Height = 61
      Align = alClient
      Color = clBtnFace
      ParentColor = False
      OnPaint = PaintBox1Paint
    end
  end
  object Panel2: TPanel
    Left = 296
    Top = 208
    Width = 185
    Height = 69
    BorderWidth = 3
    TabOrder = 1
    object PaintBox2: TPaintBox
      Left = 4
      Top = 4
      Width = 177
      Height = 61
      Align = alClient
      Color = clBtnFace
      ParentColor = False
      OnPaint = PaintBox2Paint
    end
  end
  object saturation: TScrollBar
    Left = 292
    Top = 16
    Width = 153
    Height = 14
    LargeChange = 5
    Min = -100
    TabOrder = 2
    OnChange = saturationChange
  end
  object lightness: TScrollBar
    Left = 292
    Top = 52
    Width = 153
    Height = 14
    LargeChange = 5
    Min = -100
    TabOrder = 3
    OnChange = LightnessChange
  end
  object contrast: TScrollBar
    Left = 292
    Top = 88
    Width = 153
    Height = 14
    LargeChange = 5
    Min = -100
    TabOrder = 4
    OnChange = ContrastChange
  end
  object MainMenu1: TMainMenu
    Left = 12
    Top = 12
    object Loadpicture1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Loadpicture2: TMenuItem
        Caption = '&Load picture'
        ShortCut = 0
        OnClick = Loadpicture2Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
      end
    end
    object Effects: TMenuItem
      Caption = '&Effects'
      ShortCut = 0
      object FlipHorizontal1: TMenuItem
        Caption = 'Flip &horizontal'
        ShortCut = 0
        OnClick = FlipHorizontalClick
      end
      object Flipvertical1: TMenuItem
        Caption = 'Flip &vertical'
        ShortCut = 0
        OnClick = FlipVerticalClick
      end
      object Togray2: TMenuItem
        Caption = 'To &gray'
        ShortCut = 0
        OnClick = ToGrayClick
      end
      object Invert1: TMenuItem
        Caption = '&Invert'
        ShortCut = 0
        OnClick = invertClick
      end
    end
  end
  object OpenDlg: TOpenDialog
    DefaultExt = '*.j'
    FileEditStyle = fsEdit
    Filter =
      'JPEG files|*.JPG|BMP files|*.BMP|Graphic files|*.JPG;*.BMP|Any f' +
      'ile|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 44
    Top = 12
  end
end